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CUPON OFERTA 

Aproveche ahora esta magnífica 
oportunidad para suscribirse 

a TYPE AND RUN. 


Envíe HOY MISMO este cupón. 
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El importe lo abonaré: POR CHEQUE OU CONTRA REEMBOLSO 
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PARACAIDISTAS 


NOTAS GRAFICAS 


Si has deseado alguna vez lanzarte en paracaidas, ahora 
puedes demostrar tu valor con este juego. 

Eres un intrépido paracaidista. Tu avión aparece por la 
izquierda de la pantalla. Sólo tienes que tomar impulso y 
lanzarte al aire. Tu misión es caer justo en el centro del 
hangar. Dispones de teclas de movimiento hacia la 
derecha «Q», y hacia la izquierda «P». Debes tener mucho 
cuidado con las montañas, árboles, etc. Recuerda que 
tienes que caer justo en el hangar, porque sino te darás 
el gran tortazo. 
Demuestra tu destreza y... buena suerte! 


] TA 24.103 7433/3: 
pan “4 y á , el 
10 60 SUE Ed 2d OE 35 dG 
11 60 SUE 22 224,240 ble de 
2 60 SUB 35 ER : 
13 PRINT sl; ero AE e TEATÓ A 0,0,0,255,207 
A LG HT SALTO n2 ¿Z07, 
1JI"ACIERTOS 27 IAUERSE 0, ER :86,15,255,255, 
HT 0, aLier iO. ai a 45,245,225, 20 
GH 1d PRIMT AT_21,c0 Le-1. 5 , ' 
18 FOR n=1 TU =1 55,565,170 21 > 
16 60 SUB =3 e JE e 
17 PAUSE a AS y RE 1 
18 PRINT AT m.cobl. FEA MON sr 
19 60 S5U6 3% B 2:30: BEER .d.s0 
20 NET OM 12 THEM 60 To 6 3 Eb Th -1E' tos=aciertós+ 1 
ol 1F ss La HEM o 2, . 
So 0 5UB 75 AMO bulo paisaje] 
23 FA se. >e de, ES 0,06: DRAL 255,0 
CEINT AT 10,0, FLASH Ll: BRi PLOT e Ta ERE -dO,-de 
A pzz LL) ra! de pu pa 10 :) xi) eZ E y 
ses PULSE UNA TECLA FA 2 210,-5: DRAL -10.,10 hd € 


PLOT 115,0: CORA - a 
29,10: BRA og -]20r 90: DR 


e PLOT 30,0 CRA 18, .-10: DER 


A ERE 
cn 


ET ar EN to =0 


Dn: A 
¡DMAMDDDD | 


Ma 


ETTUDNID 


ETO A 
40 LET ECO q 
E Leer ¿ot1231 
Ñ THEM LET coll=0 


DNZZ 
MM 


En 
caracteres PR 

FOR w=4 Le Sl NE 
PORE USA 40,9 RET 


Este programa pretende ayudarte a memorizar los 
TRA GA PERRA S > nombres de las ciudades españolas de una forma 
relativamente fácil y entretenida, y teniendo en cuenta que 
CESAR HERNANDEZ si tienes menos de 18 años, no puedes jugar con este 
tipo de máquinas, p referimos hacerlo así, y todos nos 
evitaremos problemas. Prueba y verás como no te 
aburres (Hemos pensado que también es interesante 
adjuntarle el diagrama de flujo de este programa, por si te 
interesa seguir la lógica del mismo). 
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Con este programa puedes repasar algo que te será útil 
en el futuro, donde están localizadas las diferentes 
autonomías que forman nuestro país. Esperamos que 
disfruteis, comprobando que vuestros conocimientos 
están a la altura que deben estar. 

Las notas gráficas están justamente al final del listado. 
Verás que hemos utilizado dos métodos para dibujar; uno 
para dibujar las islas Baleares y Canarias —se trata de 
usar los UD G—. El otro es el trazado punto a punto a 
través de sentencias DATA, y se usa en el dibujo del 
mapa de la península. 

Como observarás sólo hay un método para que el 
programa te libere... 
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J. J. MARTINEZ 


SALTO DE VALLAS 
Prueba tu habilidad saltando vallas con tu caballo. 


Aprovéchate de este programa Basic que nos ofrece J. J. 


Martínez. Aprieta el cero y salta la valla, el ordenador 
será tu juez y te marcará las faltas, dándote al final del 
recorrido, el total de las mismas. De la misma manera, te 
felicitará tras cada buen salto. 

Al igual que en la realidad, se puede saltar de cualquier 
forma, pero sólo una es la buena, sólo una es la que 
puntúa. 
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cc = Contador de cocos. 
: PU = Puntos. 
Pe a a i E La id s simple, lj : y 3 nivel, 
ALEX Y ALVARO TORRENS pde es simple, aunque el juego, según a qué nivel, no 
ANGEL BAUTISTA Te encuentras aislado en una isla desierta, en la que hay 


una palmera. Cuando cae un coco, intenta cojerlo en la 
cesta. Si no lo consigues, el mono juguetón bajará un 


RES = Nombre del recordman. poco por el tronco de la palmera. Cuidado no te acerque 
RE = Record. a los bordes, porque no te puedes caer al mar. 

P1, P2 = Posición horizontal del mono. En el primer nivel, la dificultad es muy poca. Indicada para 
MO, Mi = Figura del mono. los más pequeños de la casa, y para los papás no muy 
M = Posición vertical del mono. acostumbrados a las máquinas de marcianitos. 

NI = Nivel. Después la cosa cambia: Los cocos caen más deprisa, tú 
Xx = Posición horizontal del hombre. tienes que correr más, a veces no tienes tiempo ni de 

H = Figura del hombre. parar a tomar un poco de aire. 

CL = Clave indicadora de caída del coco. Un juego entretenido, con unos gráficos muy bonitos. 

CO = Núm. de coco. Incluye records con el nombre del recordman. 

C1(n), C2(n) = Coordenadas de cada coco. _ (Por cierto, es posible que os suene la música.) 


ISAAC: 
* = C:00C00'8. = $ 
*Alex y Alvaro Torrerns* 
* Ped Bautista * 


RERND (TIME) 
R A.A 
RE=INT 
SCREEN 2,1 
Pí= 119:P2=125:M0=3:MI=4 
OPEN"GRP: "FOR OUTPUT ASH1 
30 PLAY Ar a di lil 


M=59: PU=9:NI=N 
g 


UB 85 
OSUB_629 
ON INTERVAL=59 GOSUB 469: INTERVAL ON 
PUT SPRITE 15, (P1,M),19,M0 
X= 199 

e q 

a IF THEN 
TO 238 

IF CL=9 THEN RETURN 
INTERVAL_OFF 


PUT SPRITECO, (C1(C0),C2(C0)),1,5 

C2(C0)=C2 (CO) +NIX2 
IF C2(C0)>115 AND C2(C0)<125+(2XNI) THEN IF ABS(X-C1(C0))<4 THEN IF WTHEN 5 
IF_C2(C0)<149 THEN RETURN 

PUT SPRITE CO, (9,9),7,5 

PLAY"ti28o1a4 

_M=M4+25:CL=9 

SWAP_P1,P2:SWAP MO, MI 

INTERVAL OFF 


se PUT SPRITE15, (P1,M),11,MOOK 
IF_M>134THEN 759 
INTERVAL ON 
RETURN 
REMO 
IF CC=18 THEN GOSUB 1619:GOTO 179 
CO= INT(RND(1)X19)+1 
THEN 489 
c0) 
PUT_SPRITECO, (9,299),4,5 
U=PU+1 
LINE (15,119) - (58,129) ,4,BF 
PLAY"V1504c32e16 
PRESET (15,119):COLOR 15 
PRINTH1,USING"HHH";PU 
CL=9: INTERVAL ON 
RETURN 
NI=NI+1 
: "y15t249cdef 
FOR N= 1 TO 198:J3( : NEX 
LINE(299,119)-(259,120),4,BF 
E PRESET (299,119):CÓLOR 15 


e ES Ade — 


Jr Pr o Jo o Jo o ft Jr JJ o Jo fi Jr o Jr o Jr Jr JJ ru Jr o Jo Jr Jo Jr o o fr LE) Pr do fr ro Jr uo Jr Jr Jr o Jr pr ua ps pr po 


eobiebisioioio] 


ODNMIAABABADADAON00)00MIMIINANINANNIJAN NR a ta fe po pos o fo oa pr 
( VO NUBOSO AUNADO NO UA NN 
SANDANVAARIADADNAARDANAIDVADIADAANIAAADN DARAN DAARADARANURA 


N-ausvO0 Jr AIN ADOSADO 


[STOLS] 


PRINTH1,NI 
CL=9: (029 
RETURN 
REM XX inicia XX 
M=59 
PU=9:NI=1 
GOTO 179 
PUT SPRITE 15, (190,135),19,4 
PLAY"t24805bagtedce04BABFEDCCOSBAGFEDCO2gu030" 
FOR F= 1 TO 10: J(F)=8:NEXT 
IF PU>RE THEN 1359 - 
LINE (38, 179)-(289,199),4,BF 
PRESET (38,186):CÓLOR 15 
PRINTH1, "ESPACIO para Otra partida" z 
IF NOT $TRIG(9) THEN 829 
SCREEN 2 
GOTO 138 
" X% Situaci"n coqquera XX 
FOR F= 1 TO 19 
C1(F)=INT(RND(1)%189) +69 
C2(F)=INT (RND(1)X79)+19 
IF POINT(C1(F),C2(F)+10)<>2 THEN 879 
PUT_SPRITE F, (6 11F),C02(F)),1,5 
NEXT F 
RETURN 
"XX Pantalla XX 
LINE (9,9)-(255,199),7,BF 
COLOR1I5 ,4,1 
LINE (45,159)-(219,169),9,BF 
LINE (35,159)-(228,1709),9,) BF 
FOR A= 159 TO 49 STEP-15 
PRESET (125,A),6 
DRAW"h19r293 pr 


FOR 
READ X, Y W 
LINE -1X,Y),2 

NEXT ON 

PRESET(129,45),2 

PAINT (139,39),2 

COLOR1 

PRESET (19,98) :PRINTH1,"COCOS: " 

PRESET (295,99):PRINTH], "Nivel: " 

PRESET (15,119),1:PRINTA1,USING"HHH"5PU 

PRESET (98,180): COLOR 15 


PRINTH1,RÉES;":";RE 
RETURN 

DATA 69,898.95, 45,30.30,50,35,698,19,119,25,125,20,195,15,180,25,215,35,168,4 
9,80,149,45,120,45 

EM AL SPRITES *% 
RESTORE 1299 

FOR T=9 TÓ 5 

se-»”» 

FOR A= 1 TO 8 

READ R 
S$=S$+CHR$(R) 
NEXT_A 
SPRITES(T)=S$ 

NEXT _T 

RETURN 


DATA 56,56,16,124,146,16,48,68 
DATA 294,226,196,69,4,4,19,49 
DATA 51,59,35,69,32,32,80,149 
DATA 24,724,165, 191,176,176,252,7 

DATA 24.74,8,252,13 15,63,224 - 

DATA 6,0,9,0,16,56,56,16 

REM XXNuevo record XX 

SCREEN 1:KEY OFF 

PLAY"vi5cg.cg” 

LOCATE 16,5: FRINT"NUEVO RECORD: *;PU 

LOCATE 5,19:FRINT"Irtroduce tu Nombre" 

LOCATE ,14 

INPUT"m'x. 5 letras”;RES 

RES=LEFTS (RES, 5) 

SCREEN 2 

GOTO 130 

REM XX Presentaci'r XX 

SCREEN 1:KEY OFF 

COLOR 183,1 

LOCATE 8,18:PRINT" COCOS" 

GOSUB 1579 - 

LOCATE £,15:PRINT"Elije nivel (1, 2, 3)"5 

NI$=INPUT$ (1) 

NC=VAL (NI$) -1 : 


IF NC<M OR NI>2 THEN 1519 

BEEP 

RETURN y 
¡? kk Misica XX > 

a a od de did 

MA$="t24£v153538m90804r4eeeetfedco3b” 

FLAY MUS 

PLAY MA$:FLAY "93393.” 


PLAY MASIFLAY "0439." 


OS TUEN EXE 


SIMULADOR DE VUELO Ino: 


HDG: Indica la dirección a la que viajas. Se muestra en 
grados. El norte se corresponde con O0, el este 900, el 
sur a 1800 y el oeste a 2700, 

RDR: Marca la posición del timón a la derecha y negativo 
a la izquierda. 

Gas: Muestra la cantidad de gasolina que nos queda. 
SPD: Muestra la velocidad a la que viajas. 


Este es un juego de simulación de vuelo para un jugador. 
Puedes escoger entre dos pistas de aterrizaje con 
gráficos diferentes y un pequeño mapa a escala del 
terreno. Los aeropuertos han sido emplazados al este y PNR: Muestra la potencia de los motores antes y durante 
oeste, respectivamente, del mapa. Las pistas aparecerán 


el vuelo. 
automáticamente, al acercarse a ellas, a una altura menor ALT: Muestra la altitud. 
de 2.000 pies. 


ROC-ROD: Nos muestra la velocidad de ascenso o 
Asimismo, el mapa se visualizará una vez que te hayas 


descenso. Además una luz roja te indicará cuando esté 
alejado de esta. Tu posición en tierra se muestra encendida, que estás descendiendo. 
mediante un avión que se enciende y se apaga. Tu FLP: Este control nos muestra la posición de los flaps. O 
dirección puede controlarse mediante el lector UDG indica flaps cerrados y 30 indica flaps completamente 
(lectura de dirección de vuelo). En la mitad inferior de la abiertos. 


pantalla hay un completo equipo de instrumentos que te 
serán de gran ayuda durante el vuelo. 


GEAR UP o GEAR DOWN: Nos muestra la posición del 
tren de aterrizaje. 


[ERA 
[150 REM 

160 O AS : 

170 OPEN "GRP=:" S 
1180 REM PRINT TITLE SCREEN AND SELEC 


- 


620 IF LEFTS(PS 1) =CHR$ (219 
) = 
R$(43) THEN 480 j ARE 


6308 IF MIDS (P$,2,1)>="g" AND MID+ (Fx, 


2,1)<="9" THEN P+$=k1 j 5 
pal ; GHT$(PS,LEN(PF)-1 
190 CLS 649 C=C-1 
208 SCREEN Q 658 GOSUB 710 
210 COLOR 1,15,1 668 C=C+1 


(228 LOCATE 3,5: PRINT "PILOT" , 
230 LOCATE 3,8:PRINT "1. Take off" 
240 LOCATE 3,10:FRINT "2. Landing y 
258 LOCATE 3,12:PRINT "3. In flight 
260 LOCATE 3,18 

| 270 PRINT "Option?" 

280 Os=INKEYS: 1F Q$="" THEN 280 

290 1F 0$>"3" OR Q$<"1" THEN 280 
300 O=VAL (03) 

310 LOCATE 3,20 po 

(320 PRINT "Wind effects” E 

330 A$=INKEY$: 1F As="" THEN 330 

340 IF As$="Y" THEN WN=1 

MT3508 SCREEN 2 

368 CLS 

| 379 ON Q GOSUB 4570,4690,4840 

380 REM MAIN SUBROUTINE CALLING LOOP 
398 GOSUB 1480 

400 GOSUB 7608 

410 GOSUB 1480 

420 GOSUB 2300 

430 GOTO 390 

440 REM DISPLAY ROUTINES 

450 IF LEN(P$)>1 THEN 489 

460 P3=" “+P$ 

470 GOTO 629 Ñ 

480 IF LEN(P3$)>2 THEN 510 

499 P3=" "+PS 

500 GOTO 420 Ñ 

510 IF LEN(P$)>3 THEN 54D 


678 COLOR 11 

680 PRESET((C-1)+*8 

690 PRINTH1,PS 

700 RETURN | E 

718 PRESET((C-1)% - 

.728 COLOR 1 ad 

730 PRINTR1,STRI 

OS NG$ (LEN(P$)+2,219) 

750 REM UPDATE FUEL, VELOCITY al 
ALTITUDE * á 

760 FU=FU-PW*. 013 al 

770 1F FU<=0 THEN FU=08:PwW=0 

789 P$=STR$(INT(FU)) 

798 R=15:C=4:GOSUB 578 Ed 

809 VES (PW*1. 14-B2*44.978-VE* ((FLI0) e 

(VE>100) FL/150-—. 19 VE* ((GR=9)* (VE>10 

0))+VE/2r (VEX<10)+VER4)/5 

810 IF VE<20 THEN 830 

820 VE=VE+RND (1) 4-2 

830 IF VE<O THEN VE=9 

840 P$=STR$(INT(VE)) 

850 R=18:C=4:GOSUB 570 

8608 AL=AL+RO/10 

870 IF AL<A THEN Al=0 

880 P$=STR$(INT(AL))» 

899 R=16:C=16:G0SUB 450 

PR REM CHECK FOR CRASH 

IF AL<1 AN 
a D TS<>6 AND TS<>18 THEN 


7920 IF AL<1 AND GR= 


, (R-1)*8) 


DA 


: 1 THEN 4279 * 
Ll s20 Ps=". "+P3 730 IF AL<1 AND ABS(B3-B1)>3 THEN 427 
530 GOTO 628 si a 
540 IF LEN(P$)>4 THEN 62 740 IF AL<1 AND RO<-320 THEN 4990 
550 Ps$=" "+PS$ 


7530 IF AL<1 AND VE<1 AN 
D (TS=6 OR TS= 
10) AND RO<A AND RO>-328 THEN 


4270 
pd AL<10W0 AND Ps=12 AND WM=2 THEN 


568 GOTO 620 
570 IF LEN(P$)>1 THEN 600 
sea Ps=" "+P$ 


98 GOTO 629 
200 IF LEN(P$)>2 THEN 620 


610 Ps=" "PS 


978 IF AL<1800 AND Ps= 
=6 = 
l 2090 AND WM=2 THEN 
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El cuadro que aparece en la pantalla a la derecha del 
panel de instrumentos es un horizonte artificial. Cuando la 
línea roja esté en la parte de abajo el morro apunta hacia 
arriba y cuando la línea esté en la parte de arriba, el 
morro del aparato apunta hacia abajo. Asimismo, nos 
indica el alabeo dei aparato. Cuando la línea roja se 
encuentre entre la parte inferior izquierda hasta la parte 
superior derecha, significa que el alabeo es hacia la 
derecha y cuando la línea roja se encuentre entre la zona 
inferior derecha hasta la zona superior izquierda, significa 
que el alabeo es hacia la izquierda. 


COMO SE JUEGA 

Para controlar el aeroplano, se utilizan las siguientes 
teclas: 

E Para subir el morro del avión 

X Para bajar el morro del avión 

SyD Controlan el alabeo del avión 

Esto produce una corriente de aire que hace al aparato 
girar a la misma dirección del alabeo. Mantenga siempre 
la tecla oprimida hasta que el avión responda. 

OyP La potencia de los motores se reduce con la tecla 
O y se aumenta con la tecla P. 


A MEP E. Y 


| 
'5= Wm=2 THEN 
988 IF AL<4MDA AND FS=1 AND 


4090 
990 REM RATE OF CLIMB León 
1000 RO=(((B2*62.4-ABS(BS o 
31.33) -(220*VE/150)* (AL>5)*S6 
Bor2e (B2<-1)+RO*2)/3 
1010 GOSUR 100 

28 GOTO 11 
aso SF AL<S THEN 1060 

1040 RO=RO+RND (1)*8-4 

1050 REM DISPLAY RATE 

1068 1 ROO THEN o) 1) 

=STR+ (ABS E 

1000 SET (178,178) : COLOR 1: PRINTS 

RING$ (3,219) 

da PREGETCSAE AIRE) EOLOR 11: FRINT 

$1,"ROD"z:COLOR 6:PRINTH1,CHRF (219) 
GOTO 11408 

Ho PRESET (17:8,17*8): COLOR 1: FRINTH 

1 ,STRING$ (3,219) 

1120 PRESET(15*8,17*8): COLOR 11:FRINT 

$1,"ROC"z: COLOR 1:PRINTH1,CHR$(219) 

1130 PS$=STR$C(INT(RO)> 

1140 R=19:C=16:GOSUB 450 

1150 RETURN 

1160 REM STALL 

1170 1F VE>(BO0-FL*.66) 

320 E 

1180 RO=RO-ARBS (RO*RND (1) /2)—RND (1)*32 

Qx (BD-VE) 

H— 1190 GOSUB 1030 

1200 PLAY "ACACACAC" 

| 1210 IF RND(1)>.S THEN 1240 

1220 K=69 

1230 GOTO 1560 

Í1L— 1240 1F RND(1)>.S THEN 1270 

1259 K=83 
126% GOTO 1560 

14270 1F RND(1)>.S THEN 1300 

1280 Kk=68 

a GOTO 1560 
1300 K=88 
1318 GOTO 1560 
1328 1F AL<20800 OR RO<A THEN 1350 
1330 1F AL=0 THEN RO=8:GOTO 1350 
1340 RO=RO*15000/AL 
1350 1F VE>350 THEN 1200 
1360 IF VE<148 OR AL>0 THEN 1460 
1370 GOSUB 4820 
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OR AL<S THEN 1 


1380 REM TAx1 
13909 Ps$="TAXI" 
1400 R=15:C=9:605Uu 

> S B 
1410 Ps$= "TOO" 620 


1420 R=17:C=9; GOSs 
y : UB 62 
1430 P<£="FAST" 620 


SPEED TOO HIGH 


“| — 1440 R=19:0=9:GOSUB 429 


1458 GOTO 4099 

pe RETURN 
REM Lo 

1489 REIRRENE A 

1490 IF k$="" THEN 22809 

1500 K=ASC (ks) 

1510 PLAY "D6;C" 

1520 REM JOYSTICK CONTROLS 

e IF K<>69 AND K<>88 AND k<>83 AND 

1540 1 LOS A 8 

ant AND VE< (88- 


E E E AND AL<4 THEN 19608 
OR Bi1<-5 s 
1570 R=17+B1:C= Nos 


24: P+= 
OLOR 15:G0SUB 620 tar 219) 50 


ss ES B2>6 OR B2<-s5 THEN 1600 
ta] R=17+B2: C=26: P$=STRINGS$ (2 219):C 
OLOR 15: G0SUuB 620 sl ó 


1600 IF B3>6 OR B3 
<-s 


=28: PS=S E) 
OLOR 15: GO0SUB 420 TRING$ (2,219):C 
1628 IF K<>69 THEN 
167 
1630 Bi=B1-1 a 
1648 B2=B2-1 
1668 GOTO 1798 
1678 IF K<>88 THEN 
165808 B1=B1+1 1720 
1708 B3=B3+1 
1718 GOTO 1790 
1720 IF k< 283 THE 
N 

1738 Bebo, 1768 
1749 B3=B3+1 
1759 GOTO 179% 
1760 IF k<>68 TH 

y EN 
1780 B3=B3-1 
1790 IF B2<10 THE 
joda Bl 10 N 1849 
1810 B2=-19 


FL*.666) THEN 


WyR Controlan el timón. La tecla W es hacia la 
izquierda y R hacia la derecha. 

AyF Controlan los flaps F hace que se abran y A hace 
que se cierren. Cuando los flaps están cerrados (0) la 
velocidad de caída, a la que se pierde el control, es de 
aproximadamente 80 nudos. Cuando están abiertos (30), 
el avión no caerá hasta que la velocidad llegue 
aproximadamente a 60 nudos. Cuando viajes a 
velocidades altas, no abras los flaps, ya que se pueden 
dañar las alas. 

G Controla el tren de aterrizaje. Debiendo estar metido 
siempre excepto en aterrizajes y despegues. Si mantienes 
el tren de aterrizaje bajado cuando estés volando, puedes 
causar daños en el avión. Recuerda que debes mantener 
la tecla elegida hasta que el avión te responda. 


EL TERRENO 


En el mapa del terreno hay ciertas claves que es preciso 
conocer. 

— Las áreas verdes están por debajo de los 100 pies. 
— Las áreas rojas están por debajo de 1.000 pies. 

— Las áreas negras están por debajo de 4.000 pies. 
Cuando viajes por estas zonas, controla tu altitud o de lo 
contrario te estrellarás. 


OPCIONES DEL JUEGO 


Existen tres opciones para empezar a jugar. Son: 
despegue, aterrizaje o vuelo. Te recomendamos que 
empiezes por la opción de vuelo para que te vayas 


1820 B3=-10 2280 RETURN 

1830 PEN LOOP AND ROLL 2290 REM CALCULATE NEW HEADING 
1840 IF ABS(B3-B1)<18 THEN 1860 2300 HD=HD-(B3-B1)*3-RDx*2* (VE>2) 
1850 SWAF B1,B3 2310 M2=M2-1 

1860 IF ARS(B3-B1)<8 THEN 1900 —+—2320 IF AL>O OR VE<2 THEN 2348 
1870 B1=B1-1 2330 HD=HD+RD+*15 

1880 B2=B2-1 2340 IF HD>359 THEN HD=HD-3460 
1890 B3=B3-1 2350 IF HD<Q THEN HD=3468+HD 

1900 IF B1>6 OR Bi1<-S THEN 1920 2360 REM DISPLAY HEADING 


1910 R=17+B1:C=24: COLOR 6:P$=CHR$ (219 
) +CHR$ (219): GOSUB 620 

1920 1F B2>6 OR B2<-S THEN 1940 

1938 R=17+B2:C=26: P$=CHR$ (219) +CHR$ (2 
19): COLOR 6:GOSUB 620 

1940 IF B3>6 OR B3<-S THEN 1960 

1950 R=17+B3:C=28: P$=CHR$ (219) +CHR$ (2 
19): COLOR 6:GOSUB 620 

1969 IF K<>79 OR PW<10 THEN 1998 
1970 PW=PW-10 

1980 GOTO 2020 

1998 IF K<>BQ OR PW>210 THEN 2040 
2000 1F FU=0 THEN 2040 

2010 PW=PW+10 

2020 P$=STR$(PW) 

2039 R=21:0=4:G0SUB 570 

2040 IF K<>65 OR FL<S THEN 2070 

2050 FL=FL-5 

2060 GOTO 2090 

2070 IF K<>78 OR FL>25 THEN 2110 
2080 FL=FL+5 

2090 PS$=STR$ (FL) 

2100 R=22:C=16:G0SUB 570 

2110 IF K<>82 OR RD>1 THEN 2140 

2120 RD=RD+1 

2130 GOTO 2168 

2140 IF K<>87 OR RD<-1 THEN 2190 
2150 RD=RD-1 

2160 Ps$=" "+STRS(RD)+" " 
2170 R=12:C=17:GOSUB 620 
2180 REM GEAR CHANGE 
2198 IF K<>71 THEN 2280 
2200 IF AL<4 THEN 2280 
2210 IF GR=1 THEN 2250 
22208 GR=1 

2230 PS$="UP  " 

2240 GOTO 2270 

2250 GR=D 

2260 P$="DOWN" 

2270 R=23:C=18:GOSUB 620 


2370 
23809 
2390 
2400 
2410 
2420 
2430 
2440 


PS$=STR$ (HD) 

R=12:C=9:GOSUB 570 

IF WN=02 THEN 2440 

REM CALCULATE WIND EFFECTS 
IR=COS (WD/57. 296) *WS/160 
IC=SIN(WD/57. 296) 4WS/160 

REM CALCULATE NEW POSITION 
PR=PR- (VE/100)*COS(HD/57.296)+IR 
2450 PC=PC+ (VE/108) *SIN(HD/S57.296)-10C 
2460 IF WM=1 THEN 2680 

2470 1F PC>40 AND PC<310M AND PR>15 AN — 


D PR<100 THEN 2510 
2480 PR=0I 


2490 PC=0C 
2590 REM DISPLAY NEW POSITION 
2510 PRESET ( (INT (0C/10+.5)-1)8, CINT( —] 
01/10+. 5)-1)+*8) 
2520 COLOR PS 
2530 PRINTH1,CHR$ (219) 
25490 PS=POINT ((INT(PC/10+. 5)-1)+*8, CIN 
T(PR/10+.5)-1)+8) 
2550 PRESET((INT(PC/10+. 5)-1)*8, CINT( 
PR/10+.5)-1)+8) 
2568 COLOR 15 
2579 PRINT*1,CHR$ (43) 
25389 0Ol=PR:OC=PC 
2598 GOTO 2748 
2608 PRESET((INT(TC+. 5)-1)*8, (INT(TR+ 
-5)-1)+*8) 
2618 COLOR TS 
2620 PRINT41 ,CHR$ (219) 
2630 TC=TC+ (VE/120)*SIN(HD/S57.296)+1C 
*(AL<1)*VE/B0+1C* (AL>0) 
7264 TR=TR-(VE/120)*C0S(HD/57.296)-IR 
* (AL<1)*VE/80-IR*(AL>D) 
-2650 IF TR>18 OR TR<2 OR TC>30 CR TC< 
4 THEN 2940 
2660 TS=POINT(CINT(TOC+. 5)-1)+*89, CINT(T 
7R+.5)-1)x8) 
2670 R=INT(TR+.5):C=INT(TC+.5) 


en] 


pat | 


acostumbrando al manejo de los controles. Una vez 
acostumbrado al vuelo, puedes intentar el aterrizaje, que 
es la parte más difícil del juego. No te preocupes si te 
estrellas muchas veces antes de aterrizar correctamente. 
En el juego hay una opción que simula los efectos del 
viento. Puedes comenzar por viento calmado ya que el 
aterrizaje y vuelo con viento calmado ya que el aterrizaje 
y vuelo con viento fuerte requiere una gran habilidad. 


ATERRIZAJE 


Para poder aterrizar, en cualquiera de las dos pistas, 
debes acercarte a ellas desde el este y con ángulo de 
2700. Tu altura debe ser de 2.000 pies. A medida que te 
acerques al área de la pista, ésta se te mostrará en la 
parte superior de la pantalla, sustituyendo al mapa del 
terreno. Debes reducir la velocidad para el acercamiento 
definitivo para el acercamiento definitivo a la pista y 


2680 COLOR 13 eeak 
2698 P$=CHR$ (43) : GOS 
2700 1F WM=2 AND AL<2080 AND PCx293 A 


ND PC>267 AND PR<55 AND FR>41 THEN 27 
10 ELSE 2830 
2710 1F WM=1 THEN 3010 
172720 IF M2>0 THEN 3010 
2730 GOSUB 3630 
se GOSUB 3430 
Rk— 


Le 


hb 


2750 WM=1 
2768 M2=3 

2770 TR=PR-35 

2780 TR=TR/2 

12790 TC=PC-264 

2808 TS=POINT((INT(TC+.5)-1)*8, CINT(T 
C+.5)-1)*8) 

2818 GOTO 3818 

2820 REM CHANGE MAP | 
12830 IF WM=2 AND AL<2008 AND PC<BS AN 
D PC>58 AND PR<75 AND PR>61 THEN 2840 
ELSE 3010 

MT 2840 1F WM=1 THEN 3010 

2850 1F M2>0 THEN 3810 

2868 GOSUB 3638 

2878 GOSUB 3450 

WM=1 

M2=3 

TR=PR-55 

TR=TR/2 

TC=PC-55 

TS=POINT ((INT(TC+.5)-1)*8, CINTCT 
R+.5)-1)*8) 


2948 GOTO 3010 
IF M2>0 THEN 3010 


IF WM=2 THEN 3010 
GOSUB 3700 

WM=2 

M2=8 

PS=12, 

IF M2<>0 OR WM<>2 THEN 3048 


HL 


SUB 620 


osuB 628 


3040 RETURN 
30508 REM CLEAR LOWER HALF OF SCREEN 


3060 PS$=STRINGS (30,219): COLOR 1: C=3 
3070 FOR R=11 TO 24 
3088 GOSUB 620 
3090 NEXT R 

E A 


R=7:0=7: F$=CHR$ (219) : COLOR 11:G0 


3030 R=5:C=28: COLOR 11: P$=CHR$ (219): G 


debes asimismo reducir la potencia de los motores 
rápidamente una vez que hayas tocado tierra. 

Los flaps pueden abrirse totalmente en la parte última del 
aterrizaje para reducir la aceleración de caída. 

Durante el vuelo existen problemas aerodinámicos muy 
complicados, ya que el cambio de uno de los controles 
afecta a otros factores, como por ejemplo el alabeo. Este 
puede afectar a las alas y causar pérdida de altura del 
avión. 

Intenta evitar los extremos en la velocidad, ya sea alta o 
baja, o de lo contrario perderás el control del avión. 
Asimismo las teclas E S D y N deben ser usadas con 
tacto al menos hasta que uno esté lo suficientemente 
familiarizado con ellas como para hacer acrobacias 
aéreas. Sobre todo, lo que hay que pensar es que volar 
no es una empresa fácil, sino que requiere mucha 
práctica, especialmente en lo que se refiere al despegue y 
aterrizaje. Si eres capaz de despegar de la primera pista 


3100 C=23: P$=STRINGS (8,219) : COLOR 15 
3110 FOR R=12 TO 23 

3120 GOSUB 628 

3130 NEXT R 

3140 R=11:C=22:COLOR 4:P+=S7 
219) :GOSUB 6420 

3150 COLOR 4:P$=CHRS (219): =22 
3160 FOR R=12 TO 24 

317% GOSUB 620 

3180 NEXT R 

3199 C=31 

32090 FOR R=12 TO 24 

3210 GOSUB 620 

3228 NEXT R 

3230 R=24:C0=22:P$=STRINGs 
OR 4:GOSUB 420 

3240 R=17:C=24:P$=STRINGS (6,219) : COLO 
R 6:GOSUB 620 

3250 P$=STRINGS$ (7,219) :C=8: COLOR 15 


RINGS (10, 


(10,219): COL 


3268 FOR R=14 TO 20m 

3278 GOSUB 620 

3280 NEXT R 

3290 REM DISPLAY INITIAL INSTRUMENT 
PANEL 

po P$="HDG" : COLOR 11:R=12:C=5: GOSUB 

3310 P$="GAS"”:R=14:C=4: GOSUB 620 


P$="SPD":R=17:C=4:GOSUB 420 
PS="PWR":R=20:C=4:GOSUB 420 
P+="GEAR DOWN": R=23:C=5: GOSUE 62 


P$="RDR":R=12:C=13:GOSUB 428 
P+="ALT":R=15:C=16:GOSUB 620 
P$="ROC  ":R=18:C=16:GOSUB 620 
P+="FLP":R=21:C=16:GOSUB 620 

IF WN=0 THEN 3440 

COLOR 1 

PS="WIND”:R=15:C=9:GOSUR 5120 
PS=STRS (WS)+" KN":2R=17:C=7: GOSUB 


3430 P3=STR3$ (WD) +" 
B 5130 

3440 RETURN 

3458 COLOR 1: P$=STRING$ (30,219):R=1:C 
=5:GOSUB 628 

3460 P+$=CHR3$ (219) :C=3 

3470 FOR R=2 TO 11 

3480 GOSUB 620 

3490 NEXT R 

3500 C=32 


DEG":R=19:C=7:GOSU 


EAN 


y viajar hasta la segunda pista aterrizando en ésta, 
puedes considerarte un experto. Por último decir que 
cada vez que aterrizas te llenan el depósito de 
combustible. 


INFORMACION SOBRE EL PROGRAMA 


En este apartado veremos algunos datos del programa 
que te puede ser de gran ayuda. Con esto pretendemos 
que la gente no sólo introduzca el programa y juegue, 
sino que pueda saber cómo se construye un programa. 


RESUMEN DE LAS TECLAS DE CONTROL 


Creemos que es una de las mejores maneras de entender 


Timón derecha 
Timón izquierda 
Abrir Flaps 
Cerrar Flaps 
Tren de aterrizaje 


O>TSIVOUNXxM 


3510 FOR R=2 TO 11 
GOSUB.620 

NEXT R 

C=2 

FOR R=1 TO 24:GOSUB 620 
NEXT R 

3578 R=4:C=7:COLOR 12:P$=STRING$ (11,2 
19):GOSUB 620 

3580 R=5:C=7: COLOR 10: GOSUE 620 
T3590 R=6:0=7: P$=STRINGS$ (11,219) : GOSUB 
620 

13600 R=7:0=7:P$=STRING$ (11,219) : GOSUB 
3210 R=8:C=7:COLOR 12:GOSUB 628 

MT 3620 RETURN 

3630 P$=STRING$S(28,219):0=4 

| 3640 COLOR 15 

3650 FOR R=2 TO 10 

3660 GOSUB 620 

3670 NEXT R 

3680 RETURN 

3690 REM TERRAIN MAP 

3700 RESTORE 

3710 FOR J=2 TO 10 

3720 FOR K=4 TO 31 

3730 READ CH,RP 

3740 IF CH=97 THEN COLOR 1 

3758 IF CH=112 THEN COLOR 12 

3760 IF CH=120 THEN COLOR 6 

3770 1F CH=128 OR CH=129 THEN COLOR10 
3780 P$=STRINGS(RPF,219) 

3790 R=J:C=k:GOSUB 620 

3800 K=kK+RF-1 

3810 NEXT K,J. 

3820 REM DATA FOR TERRAIN MAP 

2830 DATA 97,2,120,5,112,2,120,2,112, 
3,120,1,97,3,120,2,112,8 


ES 


4120 


3840 DATA 97,1,120,2,112,10,120,1,97, "| 4228 
6,120,2 Ñ e 23 
3850 DATA 112,5,128,1,120,2,112,10,12- 4240 
0,7,97,2 ' 4250 
3860 DATA 120,2,112,2,120,2,97,1,112, | 4260 
19 4270 
3870 DATA 128,1,97,1,112,3,129,1,112, | 4289 
1,120,2 4290 


3880 DATA 
1,1127 

3890 DATA 
18,97,5,120,3,112, y 
3900 DATA 112,5,120,4,112,2,120,5,97, 


AA E | | En 


112,8,120,2,112,8,97,1,120, 


390-430 
450-470 
760-790 
800-850 
860-890 


3910 
2 1,128,3 
3920 DATA 112,8,112,2,120,6,112,6,120 
,4,112,4,120,6,120,2 
3930 DATA 97 
8,120,4,97,4 
3940 RETURN 
3950 REM SET INITIAL CONDITIONS 
39608 FU=500 
3970 IF WN=0 THEN 4000 
3980 WS=INT(RND(1)+*30)+4 
3998 WD=INT(RND(1)*34D) 
4000 OI=PR:0C=PC 
4010 RETURN 
4020 P$=STRING$ (7,219):C=8 


— 
al 
4038 COLOR 15 
4040 FOR R=14 TO 20 
4858 GOSUB 628 
4068 NEXT R 
4070 RETURN 
4080 REM CRASH 
4090 SOUND M,B: SOUND 1,5:SOUND 2,0:S0 
UND 3,13 
4100 SOUND 4,255:SOUND 5,15:SOUND 6,3 
-0: SOUND 7,8 
41108 SOUND 8,16:SOUND 9,16:SOUND 10,1 
6:SOUND 11,0 
SOUND 12,5:SOUND 13,0 
50 FOR DE=1 TO 100:NEXT DE 
SOUND 12,56: SOUND 13,8 
GOSUB 4820 
P$="Y0U":R=16:C=10:GOSUB 5130 
P3="ERASHED":R=18:C=8:GOSUB 5130 
FOR DE=1 TO 4000:NEXT DE 
REM RESET VARIABLES 
RO=D: PW=0: VE=0 
AL=0: RD=8: FL=0 
WN=B : WD=0: WS=0 
IR=0: 1C=9 
E1=0:B2=0: R3=0 
GOTO 198 


Nariz abajo el lenguaje Basic y sus aplicaciones. 

Nariz arriba N.o de línea 

Alabeo izquierda 200-270 Imprime el menú 

Alabeo derecha 280-300 Introducción de la elección 
Reducir potencia 310-340 Introducción de efectos del viento 
Aumentar potencia 370 Subrutina de listado de opciones 


Bucle principal del programa 
Muestra las rutinas de instrumentos 
Muestra las rutinas de instrumentos 
Muestra la velocidad 

Muestra la altitud 


DATA AS 


” 


ey 20,1,112,5,120,2,112, 


l 


REM CHECK LANDING GEAR 
IF GR=0 THEN 433 

GOSUB 40208 
F£="GEAR":R=16:C=9:GOSUB 5130 
P+$="UP":¿R=18:C=10:GOSUB 5130 
GOTO 4090 

REM CHECK AMOUNT OF BANK 
IF ABS(B3-B1)<4 THEN 4390 
GOSUB 4820 


Ae 


| 
| 


| 
0 ! 
0 
: 


> 
" 
' 
' 
( 


910-980 Rutina de chequeo de colisión 
1000-1140 Muestra nivel de descenso del avión 
1170-1310 Efectos de caida de velocidad 
1360-1450 Velocidad crucero muy alta 
1480-1510 Control del teclado para próxima orden 
1530-1820 Controles del avión 

1840-1950 Bucles (acrobacias) 

1960-2030 Muestreo de potencia 

2040-2100 Muestra la situación de los flaps. 
2110-2170 Muestra timón 

2190-2270 Situación tren de aterrizaje 
2300-2380 Calcula y muestra la ruta 

2390-2420 Calcula efectos del viento 
2440-2450 Calcula nueva posición 

2460-2810 Muestra la nueva posición 
2830-3030 Cambia la disposición del mapa 


4350 P$="T00":R=15:C 
4360 P$="MUCH":R=17: 
4389 GOTO 4090 
4390 PLAY "ECF" 

4400 GOSUB 4820 


RÁ 


| 4430 FU=500 

4440: RO=0 

44508 FOR DE=1 TO 16000:NEXT DE 
14460 GOSUB 4020 

4470 PLAY "CE" 


=9: GOSUB 5130 
C=9:GOSUB 5130 
4370 P+$="BANK":R=19:C0=9:GOSUB 5130 


4410 P$="YOU'VE":R=16:C0=9:GOSUB 5130 
4420 F3="LANDED":R=18:C=9:GOSUB 5130 


3060-3280 Prepara el fondo de la pantalla 

3300-3440 Muestra el panel de instrumentos inicial 
3450-3680 Pantalla inicial 

3700-3810 Muestra mapa del terreno en la parte superior 
de la pantalla 

3830-3930 Datos del mapa del terreno 

3960-4010 Valores iniciales del viento 

4090-4140 Efecto de sonido de colisión 

4200-4240 Inicializa variables para un nuevo intento 
4270-4310 Chequeo de la dirección al aterrizar 
4330-4380 Chequeo del alabeo al aterrizar 

4390-4460 Aterrizaje correcto 

4470-4550 Preparado para despegar 

4570-5160 Inicialización de valores para comienzo del 
vuelo 


Maa pa 
Sa E 


4760 TC=30 

4770 AL=400 

4789 VE=110 

4790 PW=100 

4880 GOSUB 3948 

48190 GOSUB 30608 

4828 GOSUB 3459 

4830 GOTO 2020 

2840 HD=INT (RND(1)x*3460) 
4850 PR=RND (1)+50+409 
"4860 PC=RND (1)*140+60 
4870 Wm=2 


4888 AL=INT(RND(1) *3000)+4000 


3480 P$="YOU ARE":¿R=15:C=8:GOSUB 5130 4870 VE=INT(RND(1)*50)+100 
74490 Ps$="CLEAR":R=16:0=9:GOSUB 5130 4900 PW=130 

4500 P$="FOR":R=17:C=10:GOSUB 5130 4910 GR=1 

[4510 P$="TAKE-":R=18:C=9:GOSUB 5130 _]_4928 GOSUB 39408 

4520 P$="0FF":R=19:C=10:GOSUB 5120 4938 GOSUB 30840 

4530 FOR DE=1 TO 5000:NEXT DE 4948 GOSUB 2220 

4540 GOSUB 4820 4950 P$=STRI 

4550 GOTO 1460 4968 COLOR po 
4560 REM INITIAL VALUES 4970 R=1:C=3:GOSUB 620 


43570 HD=90 4789 C=3:P$=CHR$ (219) 
4580 PR=62 479790 FOR R=2 TO 11 
4590 PC=55 5908 GOSUB 628 
4608 TS=10 3010 NEXT R 
4610 GR=0 59020 C=32 
4620 WM=1 5030 FOR R=2 TO 11 
4630 TR=6 5040 GOSUB 520 
4649 TC=8 50350 NEXT R 
4650 GOSUB 39608 5060 C=2 


5078 FOR R=1 TO 24 
5088 GOSUB 428 


4668 GOSUB 3040 
4670 GOSUB 35450 


468% RETURN 
4690 HD=270 
4700 PR=70 
4710 PC=79 
4720 TS=15 
4730. GR=0 
4740 WM=1 
4730 TR=6 


5090 NEXT R 
5188 GOSUB 3780 
5110 PS=POINT(INT(PC/10+.5 

-5)*8- 
R/10+.5)x*8-1) Ñ did 
5128 GOTO 2020 
51390 COLOR 1,15 


51409 PRESET ((C-1)*8,(R-1)x8) 


5150 PRINTH1,Ps 


5160 RETURN - 
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St ORDENA TU ORDENADOR 


Ahora Vd. puede tenertodo su equipo de ordenador en un gabinete de estilo con 
tres elegantes niveles. No más desórdenes de cables ni de periféricos. Además 
su equipo estará más protegido. 


NO PIERDA ESTA OPORTUNIDAD UNICA 
Tendrá espacio a su alcance para hardware y software. 


Dispondrá de una unidad de puente de 56,5 cm ancho, 17 cm de alto y 30,5 cm 
de fondo para su televisor o monitor. 


Debajo de esta unidad hay espacio suficiente para guardar su ordenador, apa- 
rato de cassette o microdrive. 


En una tercera unidad tiene amplio espacio para guardar cintas, diskettes, joys- 
ticks, revistas, libros, etc. 


Se vende desarmado en una caja plana, es muy fácil de armar, utilizando sola- 
mente una llave ALLEN. 


El gabinete se presenta en dos colores, NOGAL y ROBLE y tiene dimensiones 
que se ajustan a las necesidades de espacio y altura que Vd. requiere. 


ANCHO 85,5 cm. e ALTO 79,5cm. e FONDO 60 cm. 


Y ADEMAS LOS INTERFACES PARA SU JOYSTICK, 
IMPRESORA O MICRODRIVE 


Interface DK'Tronics 

Doble salida en la parte superior. La primera para joystick 
tipo Kempston y la segunda para software 

con teclas 6, 7, 8, 9 y Oo redefinición de teclas. 

Ref. 30001. P.V.P. 3.760 ptas. 


Interface Centronic. 
Para impresora y microdrive en paralelo. Ref. 30010. 
P.V.P. 11.358 plas. 


Para pedidos simplemente rellene el cupón. 


LOS JOYSTICKS DE GRAN RESPUESTA Y DURABILIDAD 


Por favor, envíenme:(marco con una X): Forma de pago: 


O COLOR CANTIDAD PRECIO |SUBTOTAL O Talón bancario a nombre de MONSER, S.A. 
GABINETE 40005 | Nogar | | 8975 | | O Giropostalnúm. cinc... 
|| 40005 | Roble [| | 8.975 |] OD Contra reembolso 
JOYSTICK 30007 | | 
po 63 [| aww | | Nombre 
po | 3008 | | . Domicilio .... 
[3005 | |] 


INTERFACE| 30001 
30010 


MONSER,S.A. 


Con motivo del reciente acuerdo, para la comercialización en nuestro país 
del TECLADO PROFESIONAL para SPECTRUM, te ofrecemos, en exclusiva, 


CARACTERISTICAS DEL TECLADO 


— Construido con material ABS de alta 
densidad. 

— Panel numérico separado. 

— Conexiones accesibles por la parte trasera. 

— Espacio interior para colocar numerosos 
periféricos (Microdrive, Transformador 
de corriente, etc.). 

— Tecla “DELETE” de utilización directa. 

— Teclas con funciones impresas de fábrica. 


Super oferta: 


Junto a la suscripción a cualquiera de 
nuestras revistas y adquiriendo el teclado 
profesional o Joystick e Interface, te ofre- 

cemos estos increíbles precios. 


Haz cuentas y verás cómo realmente me- 
rece la pena. 


Conviértete y convierte a tu Spectrum y 
en un profesional. 


INTERFACE 


— Con doble salida. 

— La primera salida simula las teclas 6, 7, 8, 9 y 0. 

— La segunda salida, funciona con juegos compatibles con 
Kempston. 


JOYSTICK 


— Mango con diseño anatómico. 

— Posibilidades de disparo automático. 
— Dos teclas de disparo. 

— Ventosas super-adherentes. 


MONSER 


a, 
> simclal” - spectrum e Y 
y 48-K A 


SOFTWARE MAGAZINE 
CON ESTE NUMERO OCHO: | 
2 SUPER CASSETTES »FULL MEMORY 48K» 


* GON INSTRUCCIONES EN CASTELLANO: 
MAD LA NEVIBTA SUPER JUEGOS O JAKEKA: 


HUMEROS. 
ELEMENTOS QUIMICOS. 
TIICONOMETAIA. 


PAN 
AA LOS PADRES Y 
EDUCADORES ¡UN 


es ' asma 
A E O O E 


Software Magazine. 

Cada número consta de dos cassettes con programas 
estrella, más la revista de pasatiempos JAKEKA. 
Aparición mensual. 


48 K. 
La mejor revista de Micro Informática con cassette, 
al mejor precio.- Aparición mensual, coleccionable. 


Ordenador Educativo. 


La primera revista educativa para Spectrum. 
Contiene un cassette con tres programas educativos, 
con los que sus hijos se divertirán aprendiendo. 


MONSER, S.A. C / Argos, 9. 28037 MADRID. 


DESEO QUE ME ENVIEN: 


Marco con una (X) en el casillero correspondiente 


Teclado profesional y suscripción a $. Magazine 
Joystick e Interface y suscripción -a 5. Magazine 


Joystick e Interface y suscripción a 48 K 
Teclado profesional ........ 


Joystick e Interface ......... 


NOMBRE oo tarios 
ACTAS 11.525 ptas. APERDIDO ncoiiccróas 


DOMICILIO 


Teclado profesional y suscripción a O. Educativo CUA a 
Joystick e Interface y suscripción a O. Educativo 


Panero 9.455 ptas. 
38 AROMA 


O Giro Postal N.” 


6.500 ptas. Total 


O Contra reembolso del primer número 


11.525 ptas. 


8.375 ptas. 


9.455 ptas. 


La suscripción será de 12 números a partir del N.* 


Teclado profesional y suscripción ad8 K Q 275 E Marco con una (X) en el casillero correspondiente la forma de pago que más me conviene: 
D Talón bancario adjunto a nombre de MONSER, S.A | 


l 
| 
FIRMA Y 
! 


Con la marca Monser sobre el cassette, usted obtiene no solamente Ú "Xeefente cinta para computador, 
sino también una cassette que le proporciona todas las funciones y conveniencias que requiera el usuario. El 
cassette para ordenadores personales Monser está diseñado para ser usado con microcomputadores y provee una 
combinación única de precisión y ejecución. 


DE VENTA EN TIENDAS ESPECIALIZADAS. 
Para envios dirigirse a Monser, S.A. q/ Argos n2 9. Tlf. 742 72 12 / 96. 


' 
ll 

yal 
Ml 


LAS CUATRO EN RAYA . 


rr 
X 


2 MX 
3 REM XÉ CUATRO EN RAYA X 
4 


REM X* X 
Ss REM COOL 
198 DIMBS5(8 3) ,L(8>) 54) ¡EL4) 


150 PRINT" DAN Lxxx CU 

179 INPUT" LO CONOCES "¡AS 

188 1F CEFTSCAS, 1)="N "THEN 210 
="S "THEN 2 


221 PRINT" HORIZONTAL 


250 FOR 111=1 TO 5289:NEXT 
279 xs="30u" ¿05="u03" 
238 a 1=1108:FORJ=1T108:8%(! ¿DD ="n a” 


391 PRINT" UD 
2319 LFLEFTS(AB» 1 
328 605UB348 

338 60T0458 


, 349 PRINT » EDAD” ¿FORI=3TO1STEP=1 
341 PRINT” e 
358 FORIJ= 171098 
3598 PRINTBS( 1,3) 5 
378 NEXTJ 
338 PRINT 


429 50SsUB3298 
438 RETURN 
440 PRINT"EO MO PUEDES HAZ OTRO 
341 eones GOsUBS 009: 60suEeaaL 


4594 INPUT"A ENTRE 1 A 8 
442 m= INT (M) ¿NNN=M 
así PRINT'O Y ESPERA 

479 LE Me 1ORM)BTHENI4A 

389 L=L(M) 

a9a 1 L>?7THEN 449 

308 com=u+ 1: L=L+ A 

s12 Bs L M0=X3 

s29 PRINT 

338 603U8348 
sq P3=X3 

559 60suB1249 


350 FOR2= 1704 
s78 1FS(Z)<4THENS88 


538 PRINT "id 
598 GOTO 1589 


E El 
7 o 


=== => 


30. COS 
a sr 
—- —  CAMARIENERRO 


118 DIMVC 16) NC 4) 
159 FORZ1= 1TO016:REAOV(2 1) ¡NEXTZ 1 
151 POKES3231 308 
ATRO EN RAYA AX 
199 1F LEFTSCAS> 1) 78 ' 
218 PRINT" UM CONSISTE EN PONER CUATRO FICHAS" 
220 PRINT" EN LINEA” 5 
VERTICAL 0 DIAGONAL” eS 


235 NEXTJ ¿NEXT 1 
298 FORZ 1=1 708: ez 10=8:MEXTZ 1 
329 INPUT * EMPIEZAS" ¡AS 
XXX AICUATRO EN RAYAR AX Xd" 


)=*NTHENGOSUB348: PRINT” 


7 290 MEXTI 
3998 PRINT" aar23456788" 
419 PRINT" M4" 


TU GANAS! !!! 


Este jueg 
o como su nombre indi 

cuatro ficha ombre indica, consiste 

fichas a un mismo color seguidas Est e 

di5Go aparecer vertical, hori ESAS GuUBtio 

pl » zontal o 

ichas Ss A 

nas sobré ree de abajo arriba y se van apil 

peli asta conseguir | a pilando 

A aya. as codiciadas cuatro 

quí tu contrinc 

A ante es el 

inteligente, sí ; el ordenador y aun 

Eeuscoonni un dolo Ello, Debes: o osamiira Unacadla 
solo fallo. Debes estar muy Fil sola 

atento a 


todas las ¡ 
z ugadas pues si : 
más de una Cesión si no tu micro te hará perder en 


Y ESPERA 50" :60TOS18 E 


o) 


N1=1 
38 FORMA= 1108 
48 paLima) +1 
s8 TEL) STHEN 1989 


368 V=1 

¿79 p3=053 :40=0 

589 M=M9 

579 sosug1249 

730 FORZ1=1T0%: ¿tz 19=8:NEXT21 
219 FOR2= 1104 

728 3=3(2) 

738 LF 3-41) 3THEN 1130 

743 q=3+F: 2? 

759 LFTAITHEN7S0 


Co As mesr=ne srt 
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760 y=V+ 4 

733 MEXTZ 

799 FOR1=1TO4 
39% n=nc10- 1 


319 LEN==ITHENDIO 
329 1 ¡=3x + SN A 1 
333 yy rl 11) ¿MU ESA MI DO 
349 MEXTI 

25% 1oni= 1THENS3A 

y97 pd: ¿Pe=Xx*+ 
e78 oTOos98 
st o 
eze 1FL >ETHENI828 

234 GOSUB 1248 

oq FORZ=1T04 

ese JESC2? y 2THENV=2 

564 NEXTZ 

1826 TPULV1THEN1888 
1838 1FUDU AT ENN1=1: 60701868 
109€ N1=N1+1 

1658 Dc 19) 1/NITHENI 080 
1060 VIV 

1079 M9=Má 

Jaza NEXTMA 

100t 1FM9<> 9THEN1128 

1106 PRINT* A 

1118 60101588 

1324 M=MP 

1138 e uri= OTHENVIENAN: HH 
1131 E PROS 

1132 PRINT"U ELIJO COLUMNA” $ pm 
1123 FOR 1]=1T10188: ¿NEXT 


1148 E OS 
1158 es(L M>=0% 
116€ Pg=0% : GOSUB348 
1178 60suB1248 
118€ FOR2=1T04 
1198 VES cz) <9THEN1228 
GANO YO 


1208 PRINT* BA 

1218 GOTO1588 

1226 NEXTZ 

1238 60To95€ 

1246 05=X* 

1258 1FP+=XSTHENOS=0% 


131% p2=8: pi=1 
137€ GOSsuet 344 
133€ p2=-1: ¿D1=1 
139€ Gasus 136€ 
125% RETURN 
136% p=1:S=1 
137€ 7=8 


- 
E 
UY 

oo 

ON 
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ll 


STAN ; 
ES 
Ls) 


LA CAJA ATOMICA atomos que 1 indiques (el número o algas) en uns 
caja de 8 x 8. 


Las instrucciones están dentro del propio juego; lo que sí 
es conveniente hacer es apuntar en una hoja los lugares 
por donde has disparado y el resultado obtenido. Por 
cada disparo del láser se te van acumulando puntos de 
penalización. 

Hay dos tableros: uno de juego (figura 1) y Ótro para el 
resultado (figura 2). 


FIGURA 1 FIGURA 2 
32 31 30 29 28 27 26 25 TABLERO E E 
y DS (0 10 0 5 RE E 


MO O AO O O E E 


DE 
JUEGO AO PER 


MEET 


9 10 11 12 13 14 15 16 


TABLERO DE 
RESULTADO 


25 


2 REM X 
(q REM X caJA ATOMICA ES 
ES 


X 
ii 


rai CAJA ATOMICA y 


2TOMOS EN La"; 
- 148 DEFFNR(Z 
150 INPUT" caJA rn” 
16% e ro 
176 FoR1=1TON 
180 A ro mie” 
ne 


s=t4:0=0 
INPUT” RAYO" R; GOSUE366b: 1 FR=OTHENIBB 


! = ¿yasy 1: 6010318 
11 2=X 4 ¿x3=X1 


S 0,256,348 

PRINT'O"TABC20) "RAYO ABSOREI DOM” ¿s=S+1 -cosue3e0o: GOTOZ1% 
x=X1 ¿Y=Y1 ¿G0T0388 

z=1 :6oTo3é6 


z=-1 
1 Fu<> 66010378 
U=z 1U=8: 6010388 
=4:U=2 
= + 15)/8 
115=1NT (WS) 
e sc0TOAz01409+430 
END 
us=(Y+15)/8 
s= 1NT (15) 
scoTos40, 288, 48% 
END 
2=Y:60T0468 
6 7=25-Y: 6010960 
2 =33-x:60T046% 
2=8+X 
1 F2<>RGOTOS78 


26 


ól4 INPUT *"MEJUEGA MASCUS/N) * As 


2365 PRINT*O"TAB(26) "RAYO POR DADONA * :5=S+ 1 +GOSUESSEB:GOTO> 10 
47e PRINT"O"TAB(26) "SALE AZ MUA" :S=342:COSUBSGOALO STO Le 

984 FRINT"Q MR CAJA ATOMICA ALEA" 

Se PRINT"DONDE ESTAN «(F,Cc>" 

Sal FORG=1TON 

S10 PRINT"MSTOMO: "50; 

524€ INPUT 1,53 

554 1FB(J,1)<>8G60T0535 

532 S=5+5:GUTOSIA 

535 C=C+1 

546 NEXT 

541 PRINT*"J MIR CAJa ATOMICA Ala" 

558 FORJ=1TOS:PRINT» ED CARD AA FORI=ITOG 

564 dad )=OTHENPRINT".* + GOTOS0r ; 

578 PRINT"He"; 

5ea NEXT: PRINT:NEXT:PRINT 

581 PRINT"D 123455781 " 

See SIE OCALIZASTES" 5 C5r aromas DE" 5N3 "QUE ESTAN EN LA CAJA! 1» ñ 
S$e0 PRINTMTIENES"$S-Cx5; "PUNTOS 


é620 1F LEFTECAS, 1)="S"THEN l1a 
634 END 
977 PRINT*y RT CAJA ATOMICA AE" 
18068 PRINT"E La C5JA ATOMICA ES UN CUADRADO DE 8x8" 
1861 PRinT" TIENES QUE ADIVINAR DONDE ESTAN Las ATOMOS” ; 
1662 PRINT+*, DISPARA EL LASER A UNA DE Las 32 CASILLAS ”; 
¡Bes PRINT*PERIFERICAS PARA DESCUBRIRLOS. TIENES 32 RAYOS" 
1084 PRINT*"soL0 PUEDES DISPARAR q LAS 232 CASILLAS EXTERIORES" 
1685 PRINT+* Ra DA Une TECLA a” — 
10£ GETAS:1FAS="" THEN 18065 
laa? PRINT" Ze 32 RAYOs h” 
1062 PRINT+» RAYO REFLEJADO CUANDO Em UNA LINEA SUPERIOR Q INFERIOR"; 
1485 PRINT*" AL RAYO, EXISTEN DOS ATOMOS EN LA MISMA PERPENDICULAR .s 
161€ PRINT*O0 CUANDO EL RAYO ENTRA POR UNA CASILLA CONTIGUA A Un ATOMO" 
iBle PRINT*"EGIRA Y O AESORBI Dc CUANDO Un RÉYO INCIDE SOBRE UN ATOMO” 
1019 PRINT"ERSRAYO DESVUIADOR CUANDO EL RAYO PAsa SOBRELA" ; 
126 PRINT» CASILLA CONTIGUA A UN ATOMU,ESTE SE  DESUIA 78 GRADOS” 
1621 PRINT "a (BA DA Una TECLA 4" 
1622 GETAS :1FAz=""THEN 1622 
1623 PRINT" Da 183 CaJa ATOMICA 4” 
16249 2 INT "5 BRE 33322222 » 
1825 PRINT* li 21698765 » 
1626 PRINT* 3 1n E249" 
1027 PRINT+ E 2 ki23" 
1628 PRINT+» E 3 22" 
1829 PRINT» €. 21” 
16368 PRINT* 13 Su Bz0* 
18631 PRINT+* E SE 19” 
1832 PRINT* 1 7u dis" 
1033 PRINT* Y SE 17" 
1434 PRINT+* 3 91111111 + 
18635 PRINT* [E 61233456 h” 
1036 PRINT "5 E PARA DAR LA SOLUCION RAYO= 051 ” 
16237 PRINT*"g E DA UNA TECLA a” 
1638 GETAS :1FAr=""THEN 1638 
1799 RETURN 
3640 S1=54272 
30661 SORSISSITOS1+24:POKES, 8: NEXT 
30e2 Pe. ed PP 1POKESI+S, 1881 POKES 146,24 
3403 POKESI,246:POKESI+1,33 
3464 POKESI+49,131 
3645 FORVO= STOGSTEFR- 1 
3eBs POKESI+24,U0 
34047 FORDU=BTOZS ¿NEXT 
7 3008 NEXT: POKESI+9, 6: RETURN 


NN 
N 


J. L. PEÑALBA 


Este juego es una versión del conocido juego de mesa. 
Consiste en adivinar el número que ha «pensado» la 
máquina. 

Permite hasta 12 jugadores y el número a adivinar, según 
se elija, puede tener de 1 a 10 dígitos con o sin 
repetición. Para más de 6 dígitos el ordenador no permite 


que haya repetidos, por lo difícil que resultaría encontrar 
la solución. 

Se van haciendo jugadas sucesivas hasta adivinar el 
número. En cada jugada, el ordenador nos indica los 
«heridos», dígitos acertados pero descolocados 
(representados por circulos blancos) y los muertos, 
dígitos acertados y colocados en su sitio (representados 
por círculos oscuros). 

Cuando se acierta el número, el ordenador interpreta una 
melodía para celebrarlo. 

El número máximo de intentos es de diez por cada 
número. 


E 


1 PREM ata nea a aaa loan nd 2 
2 REM MA A 
3 REM Mi MASTERMIND Ú 
4 REM hi A 
S REM hi És 
6 REM Mm  J.L. PENALBA — M 
7 REM Ml a 
8 REM musa ase aaa ad 2 nasa us dd 
POKE 332808,8:POKE 53281.5 


LNS" * SORDO ODO 
REM abel os dd ad na 0D ad a 1 

REM M MODO DE JUEGO Mi 

REM aabt ae ads aaa nn noe ne ae na ne ua one 
PRINT"IBMOMBBINUMERO DE JUGADORES?" 
PRINT"BBDI (MAXIMO 12>" 

INPUT “MDI” ;X 

IF X=0 THEN X=1 

IF X>12 THEN PRINT:GOTO 70 

PRINT "cIOMISDINUMERO DE CIFRAS?" 
PRINT “DBBl (MAXIMO 18)" 

INPUT “MIBBDI"; Y 

PRINT “:1" 

IF Y>18 THEN PRINT:GOTO 128 

IF Y>6 THEN 180 
G0TO 208 

Z$="SIN" 

GOTO 308 

PRINT "MOB 
PRINT "MIDA 
INPUT "MBBBBI";2S 
PRINT “B" 

IF Z8<>"CON" AND Z8<>"SIN" THEN PRINT 
REE 6806 la le ls laa adn a De 

REM 8 PUESTA A CERO M 

REM 8 Y SALIDA a 

REM atra aa alas ns na as B0 

DIM PC(X> 

DIM X(Y)> 

DIM ACY) 

FOR Nu1 TO X 

P(N)=9 

NEXT N 

FOR Tw1 TO X 

PRINT “mM” 

FOR N=1 TO 48 

PRINT * POOD! 
PRINT "MODOMISOONILIDIIBBITURNO DE : 
NEXT N 
PRINT 
OOSUB 1348 

IF Z$="SIN" THEN 358 

REA bdo as load a o ne ad a 0 
REM 1 CLAVE CON REPETICION M 
REA add noe le de ea ns 
FOR Nu1 TO Y 

XC(N) INTCL1OMRAND(B)) 

NEXT N 

R=U-48 1NT(U/4) 

REA au au aa al sad a 2 a 100 
REM e CLAVE SIN REPETICION M 
REM 62d ns loo a a 2 00 a 0 038 
FOR Nui TO Y 
XC(N)=INTCIOMANDCB) > 

FOR M=1 TO N 

IF Mex THEN 699 

IF X(M)RXC(N> THEN 568 


28 


CON REPETICION PULSAR: " :PRINT "COBOIOIIIIIIADAD CON” " 
SIN REPETICION PULSAR: 


":FOR l=1 TO 28:NEXT 1 


"MHIDSCOOLLIORCIOnoa! Y; “CIFRASIM"; 28; "PREPETICION" 


RAN 


":PRINT"IIOBOOO DDD SIN" 


“NO LO HAS PUESTO BIEN":GOTO 2880 


“¡CHRSC 64+T):FOR 1=1 TO 20'NEXT I 


Pr ! 
DN 
le 0 
ja 
' | 
Cal 
' 


NEXT mM 

NEXT N 
558 REN AA 
640 REM y JUGADAS 4 
€58 REm lt 
669 PRINT LEFTSCLNS,P+1) 


¿ + INPUT x8 
678 IF OY THEN 698 
T 


P+1);X8:FOR I=1 TO 18:NexT I 
LNS,P+1);» ú 


"OOOLOIOOIS!" ; y : FOR l=1 TO 18:NExT I 
668 


810 FOR M1 TO Y 
828 FOR N=1 TQ Y 
830 IF May 


THEN 939 
840 IF AMAN) THEN 835 
858 G0TO 939 

THEN 


| 


» 
DUDA + 
DEOIDIOBIRDS 1» 


89 
2608 PRINT LEFTSCLNS,P+1);" 
970 PRINT LNS,P+1);x8; 
”: 
AA 
ERIDOS y 
add 


199 
ND M<>N THEN PRINT "o"; 
1120 NEXT mM 


1138 Rem AAA 
1140 REM my FIN Di 


: ES4272,135 
17 :POKES4277, 21 


B:POKES4278, E) 


RINT "ICLAVER»="; 
1218 FOR Nm] TO Y 


1228 PRINT EIC TY 
1238 NEXT N 

1232 RESTORE 

1235 G0suB 4088 

1249 REM MO olaolololtololcs 


—_——A 


== ===> 


== 


o 1258 REM Mm PUNTUACIONES * 


1260 REM menea ed cacao een dd 


1279 PCT)EPCTI+P — 
1280 GOSUB 1348 
1299 PRINT "IODOOIOOIIIODIIIn PARA SEGUIR JUGANDO PULSAR “S”"; 


11309 GET S$: IF S$="" THEN 1368 = 
1310 IF S$<>"S" THEN END 
E PRINT "3":NEXT T 


1338 GOTO 366 

1348 FOR U=g TO X-1 

1350 ReU-4MINT(U/4> 

1368 L=18 p 
1378 1F U»3 THEN L=20 

ES 1389 IF U>? THEN L=22 


1399 PRINT "NM" 


1488 FOR I=1 TO L-1 

1410 PRINT "M";:NEXT_I ES 
1428 PRINT TABCGMR) ¡CHRSCES+U);"="¡PLU+L) 
1430 NEXT U Ea 


1449 RETURN 


3039 PRINT " 
3040 PRINT "MODININIIONIOOOOIIIIIIIID IN" E 


3050 NEXT 2 
3068 GOTO 668 
4009 FOR A=54272 TO 54296 : POKEA., 8: NEXT 
4019 B=54272 
4028 POKEB+24,15:POKEB+3, 88: POKEB+3, 15: POKEB+2. 15: POKEB+6.89 
4030 READ E: IF Es-1 THEN RETURN 
40498 READ F 
4058 READ D 
4069 POKE B+1,E:POKEB.F :POKEB+4, 65 
4079 FOR Cw1 TO D: NEXT: POKEB+4,64 
E 4980 FOR Cm1 TO 58:NEXT 

49998 GOTO 4038 

o 4109 DATA 1 5, 250,42. 62, 250, 50, 60, 250, 42.62, 125. 50, 60, 230 a 


4110 DATA 56.99.2580 
4129 DATA 30,60,508,0,0.125,42.62.250. 58,60, 250.56,99 E 


4139 DATA 809.580.608. 508 
41409 


EEE o 
AREAS 


3088 FOR Z=1 TO 58 
3818 PRINT LEFTS(LNS,P+1);X8 
3020 PRINT LEFTSC(LNS,P+1>;" 3 
DOOM IIA a - 


Este programa nos sirve para medir la rapidez de 

s : reacción de la p ersona que está sentada frente al 

A LSPEÑALEA ordenador. Se pide que se pulse una tecla y se espere a 
que suene un tono, una vez escuchado se debe pulsar 

cualquier tecla lo más rápidamente posible. Después de 

una serie de intentos, cuando ya no queramos seguir 

ensayando, nos aparecerá el tiempo de reacción medio 


REACCION 


: conseguido. 
e 1 REM ió E 
z REM k * 0 
3 REM A TIEMPO DE REACCION pee 
4 REM A > 
A: 
6 REM M J.L. PENALBA Ñ 


7 REM Ñ a 
Lara 8 REM A alle 
e 18 Ea E al o 


ER A 
15 N=8:TT=g 

18 Na? 1 

20 PRINT "Za" TAB(28) "PRUEBA: "NN 

39 PRINT "y PARA MEDIR SU TIEMPO DE REACCION" 


30 PRINT "M PULSE UNA TECLA Y ESPERE A OIR" 
609 PRINT"M EL TONO. ":PRINT - 

79 PRINT " CUANDO LO OIGA PULSE UNA TECLA" 
98 PRINT "Mm Lo MAS RAPIDO QUE PUEDA" 

105 PRINT " ! ¡BUENA SUERTE! ¡" 

110 REm IO 

111 REM * ESPERA UNA TECLA mw 

112 REM ME al 

—128 GET As 

139 IF Rs$a"" THEN 120 

140 REm PEC RI RN 

141 REM Me ESPERA UN TIEMPO ALEATORIO m 

142 REM PORO 

145 PRINT "y IESPERE EL TONO!" :PRINT 

150 QsTI+INT(60+381MRNDC 1 > > 

160 GET As 

178 

189 IF TI<Q THEN169 

199 REM PO O OO OOO tattoos 


Ni 
Suww 
AS 
Par) 
m 
pur 
EJ 
Y 
3 
z 
E 
E, 
3 
-- HE 
EJ 
EJ] 
EJ 
Je 
= 
E 
EJ 
EJ 
3 
E 
Xx 
HE 
Ed 
UE 
Ed 
xy 
3 
JE 
EJ 
JE 
E 


POKE 54278,76 POKE 54273, 33: POKE 34272,135 
210 POKE 54296, 15:POKE 54276, 17 :POKE 54277,21 
XT] 


230 REM 0 
REM mM ESPERA UNA TECLA m 
REM IE lA 
GET As 


IF A$="" THEN 249 
COIN 
REMXCALCULO RESULTADO Y PARAR TONO 
EE PA RR 
ReTI j 


POKE 54276,08:POKE 34277,8:POKE54278,9 
290 POKE 54296,8 

REM Idle a a a le 

REM Y EXHIBIR RESULTADO m 

REM Il ld 
TR=INTCCCR-X)/601000)+5>/1890 


N 
n 
o 


NNNNNNNRN 
00 A A UA Y) 
ESAS 


PRINT "SU TIEMPO DE REACCION ES:» 
PRINT “y "TR; "SEGUNDOS" 
TTRTT+TR 

G0 TO 359 

PRINT "4 1 IDEMASIADO PRONTO! ¡» 
NeN=1 


PRINT"MWM PARA VOLVER A JUGAR PULSE : » 
PRINT"xM “S'NSI  "N“ÑNg" 
DET G$ 
IF 0$="S" THEN 18 
IF O$="N" THEN 395 
G0 TO 368 
PRINT "DD PARA "¿N;" PRUEBAS REALIZADAS" 
PRINT "M EL VALOR MEDIO DE Su TIEMPO" 
410 PRINT "Mm DE REACCION ES DE:" 
">D0 


430 PRINT "TT/N;" SEGUNDOS" 
440 END 


DORVDPLOVOVOVVUWVWWWW 
BARUOUN-=D00O 


Hh 
o 
y) 


* , . 
Tu misión consiste en traer a casa una cápsula muy 
importante, ya que ha recabado datos sobre la situación : 
sociopolítica del planeta enemigo. Debes buscar a través 
de los 25 sectores, evitando las tormentas de meteoros, y 
quesares y alienígenas. Una vez hallada la cápsula, debes 
traerlo aterrizando la nave utilizando la potencia para - 
decelerar y llegar a una altura de menos de 10 kumas y a 


una velocidad de menos de 8 gazoos. Dibujo «La 
Cápsula». 


Don -* 
[da] 


so «10 


BUCLE PRINCIPAL 


.6,35,22,23 | E 
15,36,21,20.0 13: INK 2,9: INK 34 Lec 
3 e E THEN 128,439) +17 INT (RNDSOO j 
| NEX 
2: 50000 299) 1520, 1628 
BTENCIA: “5 


0) 


go Jog 


CARROS 


QOQIat 


a] 
ZZWV 
—] 


reí 


Pron 


+4 

z 
234 
tt 


P 


y . PP. 
Ss . 


n 


IDEN 


ana 


JM3NINIAIAN 
a 01 


2 00] 
Dí 


anu 


IEC (RNDX13)+1 
2208 6391 +1, INTURNDIAGII) +1) IN 


0003037) 


OIDO) 
1 Las 


9h3+ 


¡Qu 


QUIN 


EXT 


uu: END: G0T0479 


410 CLS: INK 1,11:PEN 1: INK 9,9,24 
420 LOCATE 11,19:PRINT * HAS MUERTO!!!” 
434 SOUND 4,3000,508,15,1,1 

430 FOR T=1 TO 4bD00:NEXT 1 

459 INK 9,0: END 


469 

479: * ATERRIZAJE 
489 ” 

499 CLS 


sg8 INE 2,9: INk 1,26 
519 A=-35-INT(RNDÍGSO) 
E>D4 B=16080* INT (RNDX389) 

539 1r 21>4690 THEN C=(ST/10) ELSE C=258+INT(RNDX69) 
549 CLS H1: CLSHZ 

559 PRINT $2, "ALTURA: "3 B; “KUMAS" 

550 PRINT $2, "VELOCIDAD: ";A;"GAZOOS” 

579 PRINT $2, "FUEL; *3C;"UNIDADES" 
589 DRAWR-_649,8,0 

599 1F B<909 THEN Z=INT (490-(B/3)):PLOT 1,Z:DRAWR 649,9,2 

¿00 INPUT $2, "INTRODUCE ACELERACION”; T 

619 IF T<0 THEN T=4 
TC THEN T=9 

-TIB=B+A+(T-5)/2 

+4(1T-5)/2)-INT(RNDA4) :A=INT(A) ñ 
Cc1 THEM CLS H2:PRINT $2,” ":PRINT $2,“SIN GASOLINA. ..:GOTO 389 
OR B<-1 THEN 389 


GOTO 549 
709 . EXITO 


729 CLS 

539 LOCATE 12,12 

548 PRINT "ENMORABUENA" 

559 PRINT:PRINT 

528 PRINT "SÚ COMANDANTE ESTA CONTENTO CON VD." 
55% PRINT:PRINT"SE LE SUBIRA DE PROMOCION” 

588 FOR H=1 10 2 

599 RESTORE 849 

269 FOR T=1 TO 25 

819 READ G 

228 SOUND 4,6%X2,21,15,1 

838 NEXT:NEXT: END 
849 DATA MEA LZOD 45,68,1, 45, 47,45, 40,53, 8,53, 47,45, 36,48, 49,45, 45, 47,53, 47.62 


a 378 ” INICIALIZACION 


898 A=1:RANDOMIZE TIME 

909 ST=9898:MODE 1 

9198 SYMBOL AFTER _239 

976 SYMBOL 231,198,118,126,27,252,126,63,54 

939 DIM S(25),P$(6) 

949 PESTORE 969 

O A RO 
, , , 

978 FOR T=1 TO 6:RÉAD PS(T 

089 DATA "SOLO BASURA ESPA 

9998 DATA"QUASARS ADELANTE", " 

10609 J=INT(RNDX8)+14:3(J)= 

g19 RETURN 


1 
1,2,3,1,4,6,2,3,252+4,3,1,% 


, 

«T 

“ “TODO CLARO”, “TORMENTA DE METEOROS* 
*APSULA PERDIDA”, "ALIENIGENAS!" 


ye O. 
»rmu 


GRAFICOS 
ESPACIO CLARO 


0708 INK 1,26 

839 PEN 3:FOR T=1 TO 3:LOCATE INT(RNDX39) +1 
PEN 2:LOCATE INT (RNDX39)+1 INT (RND*29) 

PEN 1:LOCATE INT(RNDX29) +1, 1NT (RNDX29) 


g49 ” 
RNDX29)+1:PRINT CHR$(238) : NEXT 


TA 
PRINT CHR$(t1211 
PRINT CHR$(176) 


a 
3 
a 


WI a 


ASOUGLOIZANAS O 


> TORMENTA ES ACIAL 


ST=ST-589 
INK 2,7: PEN 2 
| 


A A a 
Nr e e bp e A 


SOON DAA 


34 


aaa 


A A 


ió Tel ii 
DX1590)+409,15,15 


“1 


pia Bolo sisi] 
DUOZZA 
Zru 


0O-J0 (MAIN. 

MrTZmo)a 

HNXAXCMON 
EZ 


NISINISISISLS" 


GININISISINi) 
DONAMNN-ON 
SADA 


24! Z 
2589 TO 2 STEF -49 
dy E O STEP 4 


ZU NT) A ADOS ZN DOI 
2 
Ec 


> 
MOEMODZZA 
ODIA 
ri 
" 


AA 
DA (YN 20:00 
—-4 


BbbAaRabAPprduid) 
QAURIDADADA 

N 

o 

pr] 

er] 

'" 

1] 

ANA 


BIICLS HZ 
FOR T=166 TO 2596 STEP 1 
SOUND 1,T,2:S0UND 1,T+3,2:SOUND 1,T-3,2 
añ 


a po pr foo pr Ia po pr o po 


ISSSTE] 
Dn! 
m 
+= 
= 
E] 
z2* 


? CAPSULA PERDIDA 


INK 1,26 
LOCATE 12,19:PRINT CHR$(214);CHR$(215) :LOCATE 12,11:PRINT CHR$ (213) 5 CHR$5 (21 
a 


FOR T=269 T 
SOLIND 1,T 
NEXT 

CES B1:C0LS H2 
RETURN 


DNMAICANSDSA 


AUN-2: 


29 STER -20 


ROO — NON 
A0OJ mu 
¿¡QSDO AY 


pe 


00 
USO 

OZ 

rm 

OA 

4 

y 

m 

X 

4 


DAI Ao. 
PROTA DTS 


9: FOR Y=1 TU 19 


NN o 
DQO 


JON ANNAN Y 
eL 


ZU MAODAN 


ROA 
ADD DIN IZ AN 


2 
DIMATAOMOA 214 


A 


NN dy 
Non 
ESTO ÓN 
0 uz 
prom: 
AH ZNM 
PDD > 
y. 
m 
OM mw a» 
3 hn .. 


[01] 
. 
a 
Z: 
JS 
1 3 
mi 
NA 


y 
jan] 
E 
5] 
= 
“ Qin» - 0MI0r- 


Ja poo ps po po pu 
e] 
y 0 
a 
[so] 
> 
a] 
ca] par 


1834 FOR T= 
1869 ' INSTRUCCIONES 


CcLS 
1899 PRINT TAB($);" LA CAPSULA * 
1999 PRINT:PRINT:PRINT" LA SOBREVIVENCIA DE ANDROMEDA 6 DEPENDE DEL ESFUEZN 
DE UNA CAPSULA ESPECIAL QUE RECOGE DATOS SOBRE pA SITUACION POLITICA Y SOCIO * 


ECONOMICA DEL PLANETA” 


1919 PRINT:PRINT" DESAFORTUNADAMENTE, LA CAPSULA SE DESVIO DE SU ORBITA Y S 
E_ HA PERDIDO.TU DEBES ENCONTRARLA VIAJANDO POR LOS SECTORES Y USANDO EL 
SCANER . ” 

1928 PRINT:PRINT" UNA VEZ HALLADA,LA CAPSULA DEBE SER TRAIDA A TIERRA .CO 


N UN ATERRIZAJE  PERECTO.”" 

1939 PRINT:PRINT" 51 ERES CAFAZ_DE TRER LA CAPSULA, SERAS RECOMPENSADO" 
1949 PRINT:PRINT" BUENA SUERTE ” 

1950 WHILE INKEYS$="":1WEND: RETURN 


EL GATO MUSICAL 


En b Li ee de: 
Edd lc pes o dos notas que tendrás 
, edida ñ 
ina lee que vayas acertando, se añadirá 
e te indicará 
o o lea PL ed y deberás decir cuál 
. Si tardas much 

respuesta, el gato terminará ne 

; inará lleno de pintur ¡ 
pulsar enter cuando quieres una a Aoi: dis 


A 
Y 


ALA A 
AS tt Na A 


M 


EL GATO 


RESTORE: GO SUB 899 
SYMBOL_AFTER 249 
GOSUB 799 

CLEAR: DIM N(11) 


299 GO _SUB 699 
398 OO 1 1 LASINTIRND CO ADD AL 3 IE W=A THEN GOTO 349 
359 Fs="th":1F Ww=1 THEN FsS="4+t” 

IF A=1 THEN Gé="st"” 


THEN FS="nds 


g IE á 

Aa LOCATE 1,l: a] oO MAS BAJA QUE LA NOTA "4565: PPT 
"PULSA H c 

¿IF K=1 THEN GOTO 499 


+199 
Po =z K=1 THEN GOTO 479 


IF 


50g NEXT K 
5g5 IF THEN A$="H" 
Las THEN A$="L"” 
(as="H” I$="h")) (As="L" AND (I$="L" OR 1$="1")) THEN E 
W= NEXT W:LOCATE 5.22: PRINT"<RETURN 


( 
1,21:PRINT"E * : FOR 
CONTINUAR” : TJ :GOTO 2999 
oc LA RESPUESTA ERA an? 


y=318:Z=16:9=208 
PLOT X, Y: DRAWR Z,9: DRAWR 9. -2: DRAWR -Z,0: DRAWR g,0 


NEXT_X 
FOR A=46 TO 392 STEP 32: B=286:0=278:D=158:E=142 


PLOT A,B RAW S:NEXT_A 
=46 EP ET e2286:0=278:D=158:E=142 
NEXT_A 
P ET l286:0=278:D=158:E=142 
3 YD:NEXT_A 
? TO 382 steP ES Tpi7e86:0=278:D=158:E=142 
PLOT A, E: DRAWR 1£,9:NEXT 
LOCATE 55, 15:PRINT CHR$ (249) 


PLOT 8,9 
DRAWR 514,9: DRAWR 9,352: DRAWR -514,9: DRAWR Y, -358 


RETURN 
SYMBOL 249,0,36,60,69,25,62,%9 


TEP_32 


CyT YiNEXT X 
-PEM 8:PR (249) : PAPER 9:PEN 1:GOTO 1999 
1" AND 1$<>"H" AND 18<>"h" THEN GOTO 879 
ao 


919 
199% “DEMASIADO TARDE. LA RESPUESTA ERA 
AND R$<>"n" THE 


71919 FOR W=1 T XT W: INPUT" DE NUEVO? (S O N)"5R$: IF R$<>*N" 


N RUN 
1929 END 
2609 LOCATE 3,12:PRINT"UN MUSICO NO DEBE PINTAR CERCAS! ": END 


35 


¡010/10 %]» 


Se te presentan 9 cubos en la pantalla. Cada cara se 
divide en 9 cuadrados. 

Tu objetivo es colorear una fila o columna de cuadrados 
de cualquier cara de un cubo, u obtener una fila o 
columna de cubos en los que se haya coloreado el mismo 
cuadrado. 

Los jugadores se turnarán para colorear un cubo, siendo 
el color del primer jugador, rojo y del segundo, amarillo. 
Los cuadros se colorean moviendo el cursor de pantalla y 
apuntando al cuadrado deseado (para mover el cursor se 
utilizan las teclas cursoras). : 

Si el cuadrado está en la parte superior o frontal del 
cubo, se debe poner el cursor debajo del cuadrado a 
colorear. Si el cuadrado está en los lados del cubo, hay 
que situar el cursor en el centro del cuadrado a colorear. 
Cuando se ha hecho esto, hay que pulsar la barra 
espaciadora para colorear 

La puntuación se muestra en la parte inferior de la 
pantalla, y el color del cuadrado de la parte inferior de la 
pantalla indica el turno de cada jugador. 


laa Pi 
a e a 
c Ane o 
CANA A 


22 P9REF FLN 
L"19+1 OR PS=. 
ROUP=>+1 CR 


ATA 


Dani: 


“Dt OR P=1+19) o 
¡o OR (FNL1(1? ANDIVP=5 OR VPS1< 


AY 
UN (UP, 4) OR FNLZ 
: CB: 4 OR 2 En 
OB ES:5%) AND ENL7(YP+7)) 0 

AR =ÉS,5) AND FNLZ(WF, 713) 


ARQ 
ne - 
ep! 

NS 


ponte >- 


e > 5 
y mua - 


SP 
Q0 
PR 
2 a 
mo 
aa 


ee 1002 00 > 
oa 
—7100»- 0: 
ANDA A 
PLRRR 
TONO 


- mM 


(un. usos 


+ 
HR 


¿US=CHR$ (244) : 5$=CHR$ (245 


TI 
ona 


2 Ug=CHP$ (293) 


evMBOL 2 
L$=CHRS (249 


Ns 
e 

e 

e 


PUS=CHPS 1246) :Uug=r 
FOP J= > DA LFOR T- 


NERT(DIO) : FS=CHRE (254) 
ps OINEXT IINEXT Jj 


IP YO=A Te 
GOSUB 232 
MEVYT 
MEXT YO 
LACATE 4.3:0X=9:Cy=3 
TAL ESCIOÍ=9:Sc(2)2g 
CALL BR81 
I$=INKEYS: 1F T$="" THEN Goto 550 
1F Ig=" . THEN Goto 799 
DX=9: Dy=9 
IF I$=CHPS (2493 THEN DY=-1 
IF I$=CHP$(231) = 
1E I$=CHR$ (232) = 
=CHR$ (243) 1 
;9 AND DY=p9 TO 559 

y Y=CY+Dy 


huh 
5 


1,508,308: GOTO 559 
1 59, 38: GOTO 550 
YE 


: C$=D1$: GOSUB 39 PS=PS-1:G0TO 778 
$; GOSUB 9307 VP=UP-1: 6670 279 
T+1)/2:1 CATE 


25, 18: PRINT FS$; 
¿PRINT"RO 5: PEN YE: LOCATE 52» $: PRINT"AMAPTLLO» 
S:PR 5 :PEN YE: LGCATE 25. 71 PRINTSC (>) 
+ YO+1:PRINT" 
* Y“O+2:PRINT» 
«YO+3:PRINT» 
¿PRINTLS; 


ETE 
¡S$33$; y 
2)53CHR 
¿VEY=ZG Y 


=9 YT 


TO 6 

5 2084: GOSUB 1249 

Y 
IF_NCT FNF THEN GoTo 10999 
FOR J=1 79 3 
SOSUB 1286: Gosup 1249 
NEXT 7 
IF” MOT FNT THEM GOTO 1149 
FOR J=1 TO 3 


o 


+tP(J,1>) oP ENMIPS+P(7,0)) THEM STC 12340 
29 DP PSeR gr) ye) AND HIPSR (3,2), ypjeT THEN SCiT+l)=5C (7% 
ENY ENY Y 2 THEN GCTC EP 
MmipS y : 3. Y 3 £ND "PS, VP+R1J,2))=7 
SETH Ñ 
TE ENX(PS+Porars 

132108 


NN] 
N + IM 
AN 


THEN 
OR NY UP=R03, 49) 
MIT mps y, 
CT+1)+15 Gosup 1329 
22% SOUND 

48 RETURN 


SR ENSURE (ro, CE Fires 


AMD MIPE+R(J 


2, VP-P(J, 27) 
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Libreto que contiene manual 
de instrucciones en Castellano 
FAplicaciones para tu Spectrum 


ANTTOWN-3D' 
152 BE 


AR 


> 


Ya a la venta en Kioscos, 
Tiendas Especializadas Y 
Departamento de 
Informatica del 


Key Panel 


plantillas troqueladas especial 
para colocar sobre el teclado 


de Spectrum. 


Games Board 
carcasa Mol- 
deada para 
colocar sobre 
el teclado del 
Spectrum, con 
pivotes móviles 
para indicar las 
teclas a utilizar 
en cada programa. 


programas 
; ostrell > 
Revista con ara 2) 
cassette estuche de 
de Juegos de lujo para 
aparición 


mensual para Y 
Spectrum 48 K. 


Revista mensual 


con programas listados para 
Spectrum, M S X, Amstrad y 
Commodore. incluyendo cinta 


virgen. 


Cassette virgen 
C-30, especial 
para ordenadores. 


Nota: Todos los cassettes llevan los programas para ordenadores. 


Colección tus Juegos Single 
20 estuches de dd con un programa 
para Spectrum 48 
incluyendo manual en 
castellano. 


cassette de 
Juegos de 
aparición 
mensual 
con pro- 
gramas 
didácticos 
para 
Spectrum 


Colección 
tus juegos 4 
5 estuches de lujo con 

4 programas cada uno 
incluyendo manual de 

Instrucciones en castellano 
para Spectrum 48 K. 


Seis  ca- 
Sseltes con 


P.V.P. 1.795 pis 
Catálogo con 
Instrucciones en castellano. 


Revista 
mensual 
con 


cassette / 
/ Interface para 
para / Joystick de 
MSX. doble salida, especial 


para Spectrum. 


Liria 


Joystick 
f Quinckshot 1 


Joystick 
«Challenger» 


o 
o 


Dos programas - A 
de“juegos para Spectrum 48 K, 
con cinta virgen de regalo. 


Joystick 
Quickshot 11 


teclado profesional especial 


.grabados en ambas caras. 


